home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 November / 1987-11.d64 / top secret (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  2KB  |  71 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 dimb(27),c(27),d(27):print"[147][144]   copyright 1987 compute! pub., inc."
  3. 30 printtab(10)"all rights reserved":print"please wait...reading ml"
  4. 35 fori=0to501:readw:z=z+w:next
  5. 40 ifz<>46272thenprint"error in data statements":stop
  6. 50 restore:a=peek(43)+256*peek(44):fori=0to27:readb(i),c(i),d(i):next
  7. 60 data12,17,1,32,37,1,1,387,2,68,57,1
  8. 70 data71,418,4,117,83,1,135,398,2,146,151,1,167,179,5,177,247,1,180,262,1
  9. 80 data185,343,1,201,366,1,209,353,1,212,179,1,242,251,1,263,418,4,348,270,1
  10. 90 data362,253,1,378,383,1,283,295,5,293,247,1,296,262,1,301,343,1,306,366,1
  11. 100 data330,366,1,338,353,1,341,295,1
  12. 110 fori=atoa+417:readw:pokei,w:next
  13. 120 fori=0to27:b(i)=b(i)+a:c(i)=c(i)+a:hi=int(c(i)/256):lo=c(i)-256*hi
  14. 130 pokeb(i),lo:pokeb(i)+d(i),hi:next
  15. 140 hi=int(c(4)/256):lo=c(4)-256*hi:pokea+324,lo
  16. 150 x=a+675:hi=int(x/256):lo=x-256*hi
  17. 160 poke43,lo:poke44,hi:pokex-1,0
  18. 170 print"to activate: sys"a:new
  19. 180 data169,0,160,0,36,116,80,6
  20. 190 data32,30,171,76,0,0,32,136
  21. 200 data144,162,255,134,3,32,207,255
  22. 210 data36,116,80,6,32,19,177,76
  23. 220 data0,0,32,58,151,144,12,166
  24. 230 data3,232,224,8,176,3,157,60
  25. 240 data3,134,3,201,13,208,222,166
  26. 250 data3,232,224,8,176,8,169,0
  27. 260 data157,60,3,76,0,0,169,0
  28. 270 data133,3,169,0,133,4,169,0
  29. 280 data133,5,170,160,0,152,24,101
  30. 290 data5,41,15,145,3,200,192,16
  31. 300 data144,243,232,224,16,176,16,230
  32. 310 data5,165,3,24,105,16,133,3
  33. 320 data144,2,230,4,76,0,0,165
  34. 330 data43,24,105,4,133,5,165,44
  35. 340 data133,6,144,2,230,6,169,0
  36. 350 data160,0,36,116,80,6,32,30
  37. 360 data171,76,0,0,32,136,144,32
  38. 370 data228,255,240,251,201,68,208,2
  39. 380 data240,120,201,67,208,241,169,0
  40. 390 data141,96,3,169,0,141,97,3
  41. 400 data32,0,0,32,0,0,240,30
  42. 410 data32,0,0,10,10,10,10,24
  43. 420 data101,34,133,34,144,2,230,35
  44. 430 data32,0,0,24,101,4,145,5
  45. 440 data32,0,0,76,0,0,152,24
  46. 450 data105,5,101,5,133,5,144,2
  47. 460 data230,6,165,6,197,46,144,9
  48. 470 data208,6,165,5,197,45,144,1
  49. 480 data96,32,0,0,108,96,3,169
  50. 490 data0,133,3,160,0,166,3,189
  51. 500 data60,3,41,15,170,96,169,0
  52. 510 data133,34,169,0,133,35,36,116
  53. 520 data80,3,177,5,96,169,5,76
  54. 530 data148,4,169,0,141,96,3,169
  55. 540 data0,141,97,3,32,0,0,32
  56. 550 data0,0,240,170,32,0,0,133
  57. 560 data36,32,0,0,197,36,240,15
  58. 570 data165,34,24,105,16,133,34,144
  59. 580 data2,230,35,201,0,208,234,162
  60. 590 data0,32,0,0,24,101,4,145
  61. 600 data5,32,0,0,76,0,0,41
  62. 610 data240,133,4,32,0,0,41,15
  63. 620 data96,230,3,165,3,41,7,133
  64. 630 data3,32,0,0,200,96,140,80
  65. 640 data3,138,168,36,116,80,5,177
  66. 650 data34,76,0,0,32,176,4,172
  67. 660 data80,3,96,80,65,83,83,87
  68. 670 data79,82,68,63,32,0,13,18
  69. 680 data67,146,79,68,69,82,47,18
  70. 690 data68,146,69,67,79,68,69,82,63,0
  71.